home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / LOGON < prev    next >
Text File  |  1993-05-04  |  1KB  |  33 lines
  1. // 
  2. // SESSION Log-On Routines, By Eric Tauck
  3. //
  4. // Requires:
  5. //
  6. //   RECEIVE
  7. //   SEND
  8. //
  9.  
  10. LogOn_End JUMP
  11.  
  12. // -----------------------------------------------------------------
  13. // Send a modem string and wait for CONNECT. Return TRUE if success.
  14. // -----------------------------------------------------------------
  15.  
  16. : DialPhone                             // (string - 0 | -1)
  17.   SendInitString CALL                   // send init string
  18.   DialConnect 546 WaitForString CALL ;  // wait 30 seconds for connect
  19.  
  20. : DialConnect " CONNECT"
  21.  
  22. // ------------------------------------------------------------
  23. // Wait for a prompt and send a string. Return TRUE if success.
  24. // ------------------------------------------------------------
  25.  
  26. : PromptRespond                 // (prompt response - 0 | -1)
  27.   SWAP 1092 WaitForString CALL  // wait one minute for prompt
  28.   DUP NOT LogOnPrompt1 ?JUMP    // exit if not received
  29.   SWAP SendString CALL          // send response
  30.   : LogOnPrompt1 ;
  31.  
  32. : LogOn_End
  33.